home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 102
/
102.d81
/
high basic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
82 lines
10 ifpeek(44)<>192then60000
20 poke56,207:poke55,252:clr:dv=peek(186):ifdv<8thendv=8
25 poke53280,0:poke53281,0:poke53246,peek(45):poke43247,peek(46)
30 dimp$(12),f$(12):tt$="[210]eplace [212]his [215]ith [217]our [212]itle"
40 print"[147][146][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";:
50 fori=1to3:print"[158] ";:next
60 print"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";:gosub2500
70 poke211,0:poke214,22:sys58732
80 print"[146][153][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";:
90 print"[159] ";
100 print"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
110 poke2023,peek(2022):poke56295,peek(56294):gosub2500
120 print"[158]"spc(20-len(tt$)/2)tt$
130 poke211,10:poke214,23:sys58732:print"[159][195][210][211][210]/[210][197][212][213][210][206] [212]o [211]elect
140 [153]"":[129]i[178]1[164]17
150 [153]"contspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(":[130]
160 [153]"":[129]i[178]1[164]14
170 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(":[130]
180 [153]"":[129]i[178]1[164]14
190 [153]"open ":[130]
200 p$(1)[178]" lenonvert (NULL)ears (NULL)o (NULL)econds "
210 p$(2)[178]" lenonvert (NULL)iles (NULL)o (NULL)icrons "
220 p$(3)[178]" valmpty "
230 p$(4)[178]" valmpty "
240 p$(5)[178]" valmpty "
250 p$(6)[178]" valmpty "
260 p$(7)[178]" valmpty "
270 p$(8)[178]" valmpty "
280 p$(9)[178]" valmpty "
290 p$(10)[178]" valmpty "
300 p$(11)[178]" valmpty "
310 p$(12)[178]" valmpty "
320 f$(1)[178]"year sec"
330 f$(2)[178]"mile mic
340 f$(3)=""
350 f$(4)=""
360 f$(5)=""
370 f$(6)=""
380 f$(7)=""
390 f$(8)=""
400 f$(9)=""
410 f$(10)=""
420 f$(11)=""
430 f$(12)=""
500 print"":fori=1to12:print"[159]"p$(i):next:it=1:ot=1:gosub800
510 geta$:ifa$<>""anda$<>"[145]"anda$<>chr$(13)anda$<>"q"then510
515 ifa$="q"then40000
520 ot=it:ifa$=""thenit=it+1:ifit>12thenit=1
530 ifa$="[145]"thenit=it-1:ifit<1thenit=12
540 ifa$<>chr$(13)thengosub800:goto510
550 iff$(it)=""thenit=1:gosub800:goto510
560 goto50000
800 poke214,ot+6:poke211,6:sys58732:print"[159]"p$(ot)
810 poke214,it+6:poke211,6:sys58732:wait53265,128,128:print"[146][153]"p$(it):return
2499 stop
2500 fori=217to242:pokei,peek(i)or128:next:return
10000 close15:open15,8,15,"s:high basic":close15:save"high basic",8:stop
40000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen40020
40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
40020 next:print"[147]":poke186,8:end
40030 q$=chr$(34):poke646,peek(53281):print"[147]"
40040 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:p[207]46,8:clr:l[207]"q$a$q$","i
40050 print"run:":poke631,13:poke632,13:poke198,2:end
50000 a$=f$(it):fori=8to10:close2:open2,i,2:close2:ifstthen50020
50005 close15:poke787,119
50010 open15,i,15,"r0:"+a$+"="+a$:input#15,e,e$:close15:ife=63then50030
50015 rem open15,i,15,"r"+a$+"="+a$:input#15,e,e$:close15:ife=63then50030
50020 next:poke214,23:poke211,0:sys58732:
50023 a$="[195]ouldn't find "+f$(it)+"!"
50025 print"[159] [145]";spc(20-len(a$)/2)a$;
50026 poke198,0:wait198,15:geta$:run
50030 q$=chr$(34):poke646,peek(53281):print"[147]"
50040 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:clr:l[207]"q$a$q$","i
50050 print"run:":poke631,13:poke632,13:poke198,2:end
59999 stop
60000 a$="high basic":fori=8to9:close2:open2,i,2:close2:ifstthen60020
60010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then60030
60020 next:print"[147]":poke186,8:end
60030 q$=chr$(34):poke646,peek(53281):print"[147]"
60040 print"[147]p[207]49152,0:p[207]44,192:p[207]43,1:p[207]56,207:p[207]55,252:clr:l[207]"q$a$q$","i
60050 print"run:":poke631,13:poke632,13:poke198,2:end